home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh7x
/
sh75b.d64
/
v.d.e. v1
(
.txt
)
< prev
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
21 lines
1 A2=53280:GOSUB8:INPUT"FUNKTION (Y=): PEEK(LN)[157][157][157][157][157][157][157][157][157][157]";F2$:POKEA2,13
2 PRINT"[144]";F$;F2$:PRINT"RUN3:[145][145][145][145][145]":POKE632,13:POKE633,13:POKE198,3:END
3 POKE198,0:INPUT"[158]START-ZEILENNUMMER: 1000[157][157][157][157][157][157]";ZN
4 INPUT"SCHRITTWEITE-ZEILENNUMMER: 10[157][157][157][157]";ZZ:FORT=0TO27:READD
5 POKE49152+T,D:NEXT:INPUT"STARTWERT DER LAUFENDEN NUMMER: 0[157][157][157]";LN
6 INPUT"SCHRITTWEITE DER LAUFENDEN NUMMER: 1[157][157][157]";NZ:A=49152
7 INPUT"GESAMTZAHL DER DATEN: 100 [157][157][157][157][157][157]";GD:SYSA:POKEA+2,49:POKEA+4,234
8 MD=6:POKEA2,0:POKEA2+1,0:PRINT"[147]";TAB(15);"[158]V.D.E. V1[157][157][157][157][157][157][157][157][157][163][163][163][163][163][163][163][163][163]"
9 A2$=CHR$(34):F$="9 ?"+A2$+CHR$(147)+""+A2$+":FORAZ=0TO14:Y=":A2=631:RETURN
10 LN=LN+NZ:Y$=STR$(Y):IFY<10THENY$="00"+RIGHT$(Y$,1):GOTO13
11 IFY<100THENY$="0"+RIGHT$(Y$,2):GOTO13:DATA 120,169,13,160,192,141,20,3
12 Y$=RIGHT$(Y$,3):DATA 140,21,3,88,96,169,2,133,198,169,13,141,119,2,141
13 G$=G$+Y$+",":DA=DA+1:GD=GD-1:IFGD<=0THEN17:DATA 120,2,76,49,234
14 IFDA<>MDTHENAZ=AZ-1:NEXT
15 G$=LEFT$(G$,LEN(G$)-1):DA=0
16 G$=STR$(ZN)+" DATA "+G$:ZN=ZN+ZZ:POKE646,7:PRINTG$:G$="":NEXT:A=0:GOTO18
17 G$=LEFT$(G$,(LEN(G$)-1)):PRINTSTR$(ZN)+" DATA "+G$:A=1
18 PRINT"[144]8 ZN=";ZN;"[157]:ZZ=";ZZ;"[157]:LN=";LN;"[157]:MD=";MD;"[157]:NZ=";NZ;"[157]:GD=";GD
19 A$="S[217]49152:P[207]198,0:S[217]58692:P[207]646,7:":A2$=CHR$(34):IFA=0THENPRINT"R[213]8":END
20 PRINT"[144]?C[200](147):?:?:F[207]A=1TO20:?A:N[197]:?";A2$;A$;"L[201]:";A2$;":?C[200](19)"